home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t9.d64 / list ascii $9d.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  89 lines
  1. 2 POKE55,0:POKE56,157:CLR
  2. 5 POKE53280,9:POKE53281,9
  3. 10 PRINT"[147][155][142]        LISTER FOR ASCII PRINTER
  4. 15 [153]"DEF        VALVALVALVALVALVAL VALVALVAL VALVALVALVALVAL VALVALVALVALVALVALVAL
  5. 20 PRINT,"[129]      BY
  6. 25 [153],"STEVEN DARNOLD
  7. 30 PRINT,"P.O. BOX 201
  8. 35 [153],"ALEXANDRA, NEW ZEALAND
  9. 70 FORI=40192TO40743
  10. 80 READX:POKEI,X
  11. 90 NEXT
  12. 100 DATA169,0,133,183,133,185,169,4
  13. 101 DATA133,184,133,186,32,192,255,166
  14. 102 DATA184,32,201,255,165,43,166,44
  15. 103 DATA133,249,134,250,32,63,157,133
  16. 104 DATA247,32,57,157,133,248,208,28
  17. 105 DATA169,13,32,210,255,32,210,255
  18. 106 DATA169,4,32,195,255,32,231,255
  19. 107 DATA96,230,249,208,2,230,250,160
  20. 108 DATA0,177,249,96,32,225,255,240
  21. 109 DATA223,169,0,133,2,32,57,157
  22. 110 DATA170,32,57,157,32,205,189,169
  23. 111 DATA32,32,210,255,169,0,32,210
  24. 112 DATA255,32,57,157,208,12,169,13
  25. 113 DATA32,210,255,165,247,166,248,76
  26. 114 DATA24,157,201,34,208,8,165,2
  27. 115 DATA73,1,133,2,169,34,166,2
  28. 116 DATA208,39,170,16,217,201,255,240
  29. 117 DATA213,41,127,160,255,170,240,9
  30. 118 DATA200,185,158,160,16,250,202,208
  31. 119 DATA247,200,185,158,160,8,41,127
  32. 120 DATA32,210,255,40,16,243,76,92
  33. 121 DATA157,201,34,240,177,201,128,176
  34. 122 DATA4,201,32,176,169,169,60,32
  35. 123 DATA210,255,32,63,157,160,72,217
  36. 124 DATA228,157,240,13,136,16,248,41
  37. 125 DATA127,32,210,255,169,62,76,94
  38. 126 DATA157,190,45,158,232,189,118,158
  39. 127 DATA8,41,127,32,210,255,40,16
  40. 128 DATA243,76,204,157,17,29,145,157
  41. 129 DATA147,19,18,146,144,5,28,159
  42. 130 DATA156,30,31,158,129,149,150,151
  43. 131 DATA152,153,154,155,148,20,141,14
  44. 132 DATA142,133,137,134,138,135,139,136
  45. 133 DATA140,161,162,163,164,165,166,167
  46. 134 DATA168,169,170,171,172,173,174,175
  47. 135 DATA176,177,178,179,180,181,182,183
  48. 136 DATA184,185,186,187,188,189,190,191
  49. 137 DATA192,219,220,221,223,255,1,3
  50. 138 DATA5,7,10,12,15,18,21,24
  51. 139 DATA27,30,33,36,39,42,45,48
  52. 140 DATA52,56,60,64,68,72,75,78
  53. 141 DATA81,86,91,93,95,97,99,101
  54. 142 DATA103,105,107,109,111,113,115,117
  55. 143 DATA119,121,123,124,126,128,130,132
  56. 144 DATA134,136,138,140,142,144,146,148
  57. 145 DATA150,152,154,156,157,159,161,163
  58. 146 DATA165,167,168,169,171,172,100,238
  59. 147 DATA114,244,117,240,108,229,99,108
  60. 148 DATA242,104,237,114,118,243,111,102
  61. 149 DATA230,98,108,235,119,104,244,114
  62. 150 DATA101,228,99,121,238,112,117,242
  63. 151 DATA103,114,238,98,108,245,121,101
  64. 152 DATA236,111,114,225,98,114,238,112
  65. 153 DATA105,110,235,103,114,97,177,103
  66. 154 DATA114,97,178,108,103,114,238,108
  67. 155 DATA98,108,245,103,114,97,179,105
  68. 156 DATA110,243,100,101,236,114,101,244
  69. 157 DATA108,111,119,101,242,103,114,97
  70. 158 DATA112,232,102,177,102,178,102,179
  71. 159 DATA102,180,102,181,102,182,102,183
  72. 160 DATA102,184,42,203,42,201,42,212
  73. 161 DATA42,192,42,199,42,171,42,205
  74. 162 DATA42,220,220,42,206,42,209,42
  75. 163 DATA196,42,218,42,211,42,208,42
  76. 164 DATA193,42,197,42,210,42,215,42
  77. 165 DATA200,42,202,42,204,42,217,42
  78. 166 DATA213,42,207,192,42,198,42,195
  79. 167 DATA42,216,42,214,42,194,170,171
  80. 168 DATA42,173,173,42,170,0,0,0
  81. 200 PRINT"[147][204][201][211][212][201][206][199][160][210][207][213][212][201][206][197][160][206][207][215][160][210][197][211][201][196][197][211][160][194][197][212][215][197][197][206]
  82. 210 [153]"$9STR$00 ATN(null)STR$ $9ASC27.  (null)(null)VAL LIST(null)(null)(null) 40192   FOR
  83. 220 PRINT"[215][200][197][206][197][214][197][210][160][217][207][213][160][215][193][206][212][160][212][207][160][204][201][211][212][160][193][160][208][210][207][199][210][193][205].
  84. 230 [153]"PEEK(null)ATNLEN(null)VAL(null)(null)CLOSERIGHT$(null)STR$RIGHT$LENATN(null)VALCLOSE(null)(null)VALLENRIGHT$ATN(null)CLOSELENLEFT$ATN(null)ATNLEN(null)VAL(null)(null).
  85. 240 PRINT"[198][207][210][160][197][216][193][205][208][204][197]:  [155]<CLR>[129]  CLEAR SCREEN
  86. 250 [153],"    LIST<GRA3>FOR LIGHT GRAY
  87. 260 PRINT,"    [155]<[193]>   [129] SHIFT-[193] (SPADE)
  88. 270 [153],"    LIST<*ATN>  FOR LOGO-ATN (CORNER)DEF
  89.